home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / pegger12.dms / in.adf / Install PEGGER < prev    next >
Encoding:
Text File  |  1993-08-31  |  4.9 KB  |  223 lines
  1. ; This is test of many of the features of the Installer
  2. ; Prints out debugging info if run from CLI
  3.  
  4. (set @default-dest "T:")
  5.  
  6. (transcript "Installing PEGGER Libraries")
  7. (working "Installing PEGGER Libraries" )
  8.  
  9. (copylib
  10.     (transcript "copylib")
  11.     (prompt "Installing the pegger.library.")
  12.     (help @copylib-help)
  13.     (source "Pegger:Libs/pegger.library")
  14.     (dest "LIBS:")
  15.     (confirm)
  16. )
  17.  
  18. (copylib
  19.     (transcript "copylib")
  20.     (prompt "Installing the peggersnoop.library.")
  21.     (help @copylib-help)
  22.     (source "Pegger:Libs/peggersnoop.library")
  23.     (dest "LIBS:")
  24.     (confirm)
  25. )
  26.  
  27. (copylib
  28.     (transcript "copylib")
  29.     (prompt "Installing the dctv.library.")
  30.     (help @copylib-help)
  31.     (source "Pegger:Libs/dctv.library")
  32.     (dest "LIBS:")
  33.     (confirm)
  34. )
  35.  
  36. (transcript "Getting Location of PEGGER Directory")
  37.  
  38. (set pegger_dir "Work:")
  39.  
  40. (if (NOT (exists pegger_dir (noreq)))
  41.     (set pegger_dir "Sys:")
  42. )
  43.  
  44. (set pegger_dir
  45.     (askdir
  46.         (prompt
  47.         "PEGGER requires 800K of free space on your disk. "
  48.         "Where would you like PEGGER's directory installed?")
  49.         (help @askdir-help)
  50.         (default pegger_dir)
  51.     )
  52. )
  53.  
  54. (if (NOT (exists (tackon pegger_dir "PEGGER")(noreq)))
  55.     (
  56.     (copyfiles
  57.         (source "Pegger:PEGGER.info")
  58.         (dest pegger_dir))
  59.     (tooltype
  60.         (dest (tackon pegger_dir "PEGGER"))
  61.         (noposition))
  62.     (makedir (tackon pegger_dir "PEGGER"))
  63.     )
  64. )
  65.  
  66. (set pegger_dir (tackon pegger_dir "PEGGER"))
  67.  
  68. (set @default-dest pegger_dir)
  69.  
  70. (transcript "Installing PEGGER Program")
  71.  
  72. (copyfiles
  73.     (prompt "Installing PEGGER program.")
  74.     (help @copyfiles-help)
  75.     (source "Pegger:PEGGER/PEGGER")
  76.     (infos)
  77.     (dest pegger_dir)
  78. )
  79.  
  80. (transcript "Installing PEGGER ReadMe Files")
  81. (copyfiles
  82.     (prompt "Installing Pegger ReadMe Files.")
  83.     (help @copyfiles-help)
  84.     (source "Pegger:Pegger/PEGGERChanges")
  85.     (infos)
  86.     (dest pegger_dir)
  87. )
  88.  
  89. (transcript "Installing PEGGER data files.")
  90.  
  91. (working "Installing PEGGER Data Files" )
  92.  
  93. (set dataok
  94.     (run (cat "Pegger:c/PeggerCreate " pegger_dir) )
  95. )
  96.  
  97. (if (= dataok 0)
  98.     ((set dataok
  99.         (askbool
  100.             (prompt "Could not install all of PEGGER's data files."
  101.             " Proceed with PEGGER installation?")
  102.             (help)
  103.             (choices "Proceed" "Cancel")
  104.         )
  105.     )
  106.     (if (= dataok 1)
  107.         (transcript "PEGGER Installation Aborted")
  108.         (exit "PEGGER Installation Aborted")
  109.     ))
  110. )
  111.  
  112. (set installfiles
  113.     (askoptions
  114.         (prompt "Which of the following optional directorys should be installed in the PEGGER Directory?")
  115.         (help @askoptions-help)
  116.         (choices "TutorialFiles" "Rexx")
  117.         (default 3)
  118.     )
  119. )
  120.  
  121. (if (BITAND installfiles 2)
  122.     (
  123.     (transcript "Installing PEGGER ARexx scripts.")
  124.  
  125.     (if (NOT (exists (tackon pegger_dir "Rexx") (noreq)))
  126.         (
  127.         (copyfiles
  128.             (source "Pegger:Pegger/Rexx.info")
  129.             (dest pegger_dir))
  130.         (makedir (tackon pegger_dir "Rexx"))
  131.         )
  132.     )
  133.  
  134.     (copyfiles
  135.         (prompt "Installing PEGGER ARexx scripts.")
  136.         (help @copyfiles-help)
  137.         (source "Pegger:Pegger/Rexx")
  138.         (all)
  139.         (infos)
  140.         (dest (tackon pegger_dir "Rexx"))
  141.     )
  142.     )
  143. )
  144.  
  145. (if (BITAND installfiles 1)
  146.     (
  147.     (transcript "Installing PEGGER Tutorial JPEG files.")
  148.  
  149.     (if (NOT (exists (tackon pegger_dir "TutorialFiles") (noreq)))
  150.         (
  151.         (copyfiles
  152.             (source "Pegger:Pegger/TutorialFiles.info")
  153.             (dest pegger_dir))
  154.         (makedir (tackon pegger_dir "TutorialFiles"))
  155.         )
  156.     )
  157.  
  158.     (copyfiles
  159.         (prompt "Installing PEGGER Tutorial JPEG files.")
  160.         (help @copyfiles-help)
  161.         (source "Pegger:Pegger/TutorialFiles")
  162.         (all)
  163.         (infos)
  164.         (dest (tackon pegger_dir "TutorialFiles"))
  165.     )
  166.  
  167.     (if (NOT (exists (tackon pegger_dir "Images") (noreq)))
  168.         (
  169.         (copyfiles
  170.             (source "Pegger:Pegger/Images.info")
  171.             (dest pegger_dir))
  172.         (makedir (tackon pegger_dir "Images"))
  173.         )
  174.     )
  175.  
  176.     (if (NOT (exists (tackon pegger_dir "JPEGs") (noreq)))
  177.         (
  178.         (copyfiles
  179.             (source "Pegger:Pegger/JPEGs.info")
  180.             (dest pegger_dir))
  181.         (makedir (tackon pegger_dir "JPEGs"))
  182.         )
  183.     )
  184.     )
  185. )
  186.  
  187. (transcript "Setting PEGGER ToolTypes")
  188.  
  189. (tooltype
  190.     (dest (tackon pegger_dir "PEGGER"))
  191.     (settooltype "PEGGER_DIR" (cat "\"" pegger_dir "\""))
  192.     (settooltype "SCREEN_TYPE" "NOLACE")
  193.     (settooltype "SCREEN" "WORKBENCH")
  194.     (settooltype "SCREEN_QUIET" "NO")
  195.     (settooltype "SNOOP_WORKBENCH_MENU" "YES")
  196.     (settooltype "SNOOP_WORKBENCH_ICON" "YES")
  197.     (settooltype "SNOOP_POPUP" "NO")
  198.     (settooltype "SNOOP_POPKEY" "alt p")
  199.     (settooltype "SNOOP_DELAY" "0")
  200.     (settooltype "SNOOP_CRIPPLE" "NO")
  201.     (settooltype "CJPEG_WORKBENCH_MENU" "YES")
  202.     (settooltype "CJPEG_WORKBENCH_ICON" "YES")
  203.     (settooltype "CJPEG_POPUP" "NO")
  204.     (settooltype "CJPEG_POPKEY" "alt c")
  205.     (settooltype "CJPEG_PRIORITY" "0")
  206.     (settooltype "CJPEG_SHUTDOWN" "0")
  207.     (settooltype "QUALITY" "85")
  208.     (settooltype "DJPEG_WORKBENCH_MENU" "YES")
  209.     (settooltype "DJPEG_WORKBENCH_ICON" "YES")
  210.     (settooltype "DJPEG_POPUP" "NO")
  211.     (settooltype "DJPEG_POPKEY" "alt d")
  212.     (settooltype "DJPEG_PRIORITY" "0")
  213.     (settooltype "DJPEG_SHUTDOWN" "0")
  214.     (settooltype "SMOOTHING" "OFF")
  215.     (settooltype "DONOTWAIT" "")
  216.     (settooltype "CJPEG_H_SAMPLE" "2")
  217.     (settooltype "CJPEG_V_SAMPLE" "2")
  218.     (settooltype "TEMPORARY_DIR" (cat "\"T:\""))
  219.     (settooltype "BACKUP_TEMP_DIR" (cat "\"" pegger_dir "\""))
  220. )
  221.  
  222. (transcript "Installation Completed")
  223.